Bonjour,

Je souhaites cr茅er un UserForm qui me permet d'envoyer un mail urgent de mani猫re automatique, dans lequel il y aurait des pi猫ces jointes au format .PNG dont le nombre peut varier.

Pour r茅sumer, je place des images prises depuis un appareil photo dans un dossier, avec une macro, je copie les images dans un nouveau dossier et les renomme.

Ensuite, au moment de la cr茅ation du mail je joins les photos avec leurs nouveau nom via un ".Attachments.Add" . Il y a autant de ".Attachments.Add" qu'il y a de photos potentielles :

Set Lemail = CreateObject("Outlook.Application")With Lemail.CreateItem(olMailItem)

'Permet de joindre les PNG mais dans le texte'.BodyFormat = olFormatRichText

.To = "xxx"

.Subject = "xx de" & " " & ComboBox1

.Attachments.Add Fichier1.Attachments.Add Fichier2.Attachments.Add Fichier3.Attachments.Add Fichier4.Attachments.Add Fichier5.Attachments.Add Fichier6.Attachments.Add Fichier7.Attachments.Add Fichier8.Attachments.Add Fichier9.Attachments.Add Fichier10

.Body = " "

.Display

Si il y a autant de photos dans le dossier que de .Attachments.Add 莽a fonctionne, mais si il y a plus de .Attachments.Add que de photos alors 莽a bloque car il ne trouve pas le fichier, 脿 moins que le BodyFormat soit en olFormatRichText ce qui met mes pi猫ces jointes n'importe comment au milieu du texte.

Auriez-vous une solution pour que ce mail puissent s'envoyer malgr茅 ce probl猫me?

En vous remerciant d'avance

Salutations